home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / allcrack / frmhelp.frm < prev    next >
Text File  |  1999-10-05  |  7KB  |  176 lines
  1. VERSION 5.00
  2. Begin VB.Form Help 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "                      Help"
  5.    ClientHeight    =   2310
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4110
  9.    Icon            =   "frmHelp.frx":0000
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    ScaleHeight     =   2310
  13.    ScaleWidth      =   4110
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.ComboBox Combo1 
  16.       Height          =   315
  17.       ItemData        =   "frmHelp.frx":030A
  18.       Left            =   45
  19.       List            =   "frmHelp.frx":0323
  20.       TabIndex        =   0
  21.       Text            =   "Choose One"
  22.       Top             =   0
  23.       Width           =   4020
  24.    End
  25.    Begin VB.CommandButton Command1 
  26.       Caption         =   "Ok"
  27.       Height          =   285
  28.       Left            =   3465
  29.       TabIndex        =   1
  30.       Top             =   1935
  31.       Width           =   645
  32.    End
  33.    Begin VB.Label Label3 
  34.       Alignment       =   2  'Center
  35.       Caption         =   "Thanx to Smackage for the concept!"
  36.       Height          =   600
  37.       Left            =   2010
  38.       TabIndex        =   4
  39.       Top             =   1725
  40.       Width           =   1425
  41.    End
  42.    Begin VB.Label Label2 
  43.       Alignment       =   2  'Center
  44.       Caption         =   "V 2.2 By: Stephen Spurlock MaRZ001@juno.com"
  45.       Height          =   390
  46.       Left            =   0
  47.       TabIndex        =   3
  48.       Top             =   1740
  49.       Width           =   1965
  50.    End
  51.    Begin VB.Label Label1 
  52.       Alignment       =   2  'Center
  53.       BackColor       =   &H00C0C0C0&
  54.       Caption         =   $"frmHelp.frx":03F0
  55.       Height          =   1410
  56.       Left            =   30
  57.       TabIndex        =   2
  58.       Top             =   330
  59.       Width           =   4050
  60.    End
  61.    Begin VB.Menu MnuMain 
  62.       Caption         =   "Main"
  63.       Visible         =   0   'False
  64.       Begin VB.Menu opt 
  65.          Caption         =   "Options"
  66.       End
  67.       Begin VB.Menu restore 
  68.          Caption         =   "Minimize"
  69.       End
  70.       Begin VB.Menu start 
  71.          Caption         =   "Start"
  72.       End
  73.       Begin VB.Menu awot 
  74.          Caption         =   "Always On Top"
  75.       End
  76.       Begin VB.Menu exit 
  77.          Caption         =   "Exit"
  78.       End
  79.    End
  80. End
  81. Attribute VB_Name = "Help"
  82. Attribute VB_GlobalNameSpace = False
  83. Attribute VB_Creatable = False
  84. Attribute VB_PredeclaredId = True
  85. Attribute VB_Exposed = False
  86. Private Sub awot_Click()
  87. If awot.Caption = "Always On Top" Then
  88. awot.Caption = "Never On Top"
  89. StayOnTop Main
  90. ElseIf awot.Caption = "Never On Top" Then
  91. awot.Caption = "Always On Top"
  92. NotOnTop Main
  93. End If
  94. End Sub
  95. Private Sub Combo1_Change()
  96. If Combo1.Text = "" Then
  97. Exit Sub
  98. ElseIf Combo1.Text = "What is this?" Then
  99. Label1.Caption = "This is a program to get paid by AllAdvantage/Gotoworld while you sleep, watch T.V. or just if you don't feel like using the computer."
  100. ElseIf Combo1.Text = "What does this do?" Then
  101. Label1.Caption = "This will move the mouse, make itself on top every 2 seconds so AllAdvantage/Gotoworld actually thinks your awake(haha). This will not do anything else then what I just told you. If you got this from a friend and have Visual Basic 5 or 6, goto Http://www.planetsourcecode.com and search for AllCrack. That is the Source Code, so you can proove it to your self that it does nothing!"
  102. ElseIf Combo1.Text = "What is Always On Top?" Then
  103. Label1.Caption = "Always On Top will make the IE5 Sim on top of all normal programs, like AOL or Netscape."
  104. ElseIf Combo1.Text = "What is that Blue All for?" Then
  105. Label1.Caption = "A friend requested it, so I added it. It will allow you to do most of the things that the crack will do from the SysTray."
  106. ElseIf Combo1.Text = "All I see is a Blue All, what happend?" Then
  107. Label1.Caption = "If that is all you see, then you have it minimized or it is behind another window. Click on the Blue All and it will show up."
  108. ElseIf Combo1.Text = "What is a SysTray?" Then
  109. Label1.Caption = "The SysTray (A.K.A. System Tray) is that little box where the time is and all the icons are."
  110. ElseIf Combo1.Text = "There is something I want on here, how can I add it?" Then
  111. Label1.Caption = "Well, you could add it your self with VB5 (Visual Basic 5.0) or email Me and I will add it for you, if possible."
  112. Else
  113. Exit Sub
  114. End If
  115. End Sub
  116. Private Sub Combo1_Click()
  117. If Combo1.Text = "" Then
  118. Exit Sub
  119. ElseIf Combo1.Text = "What is this?" Then
  120. Label1.Caption = "This is a program to get paid by AllAdvantage/Gotoworld while you sleep, watch T.V. or just if you don't feel like using the computer."
  121. ElseIf Combo1.Text = "What does this do?" Then
  122. Label1.Caption = "This will move the mouse, make itself on top every 2 seconds so AllAdvantage/Gotoworld actually thinks your awake(haha). This will not do anything else then what I just told you. If you got this from a friend and have Visual Basic 5 or 6, goto Http://www.planetsourcecode.com and search for AllCrack. That is the Source Code, so you can proove it to your self that it does nothing!"
  123. ElseIf Combo1.Text = "What is Always On Top?" Then
  124. Label1.Caption = "Always On Top will make the IE5 Sim on top of all normal programs, like AOL or Netscape."
  125. ElseIf Combo1.Text = "What is that Blue All for?" Then
  126. Label1.Caption = "A friend requested it, so I added it. It will allow you to do most of the things that the crack will do from the SysTray."
  127. ElseIf Combo1.Text = "All I see is a Blue All, what happend?" Then
  128. Label1.Caption = "If that is all you see, then you have it minimized or it is behind another window. Click on the Blue All and it will show up."
  129. ElseIf Combo1.Text = "What is a SysTray?" Then
  130. Label1.Caption = "The SysTray (A.K.A. System Tray) is that little box where the time is and all the icons are."
  131. ElseIf Combo1.Text = "There is something I want on here, how can I add it?" Then
  132. Label1.Caption = "Well, you could add it your self with VB5 (Visual Basic 5.0) or email Me and I will add it for you, if possible."
  133. Else
  134. Exit Sub
  135. End If
  136. End Sub
  137. Private Sub Command1_Click()
  138. Me.Hide
  139. End Sub
  140. Private Sub exit_Click()
  141. Shell_NotifyIcon NIM_DELETE, nid
  142. End
  143. End Sub
  144. Private Sub opt_Click()
  145. Opts.Show
  146. End Sub
  147. Private Sub restore_Click()
  148. If restore.Caption = "Restore" Then
  149. restore.Caption = "Minimize"
  150. Else
  151. restore.Caption = "Restore"
  152. End If
  153. If Main.Visible = False Then
  154. Main.WindowState = vbNormal
  155. Main.Show
  156. ElseIf Main.Visible = True Then
  157. Main.WindowState = vbMinimized
  158. Main.Hide
  159. End If
  160. End Sub
  161. Private Sub start_Click()
  162. If Main.Label1.Caption = "Start" Then
  163. Main.Image1 = Main.Image3
  164. start.Caption = "Stop"
  165. Main.Label1.Caption = "Stop"
  166. Main.Timer1.Enabled = True
  167. Main.Image1 = Main.Image2
  168. ElseIf Main.Label1.Caption = "Stop" Then
  169. Main.Image1 = Main.Image3
  170. start.Caption = "Start"
  171. Main.Label1.Caption = "Start"
  172. Main.Timer1.Enabled = False
  173. Main.Image1 = Main.Image2
  174. End If
  175. End Sub
  176.